Developer CD Series 1996 April: Mac OS SDK/Dev.CD Apr 96 SDK/Dev.CD Apr 96 SDK1.toast/Development Kits (Disc 1)/OpenDoc/Sample Code/PartMaker 4.4/PartMaker Documents/Script Runner•/Script Runner•.rsrc/dFRK_5002

Text File | 1995-12-12 | 16.3 KB | 344 lines

(*
    This script was generated from "Save Project As Script"

    Generated from:

    Project:    OSAPlugIn PPC.π
    Folder:        Bradshaw:Script Runner:
    Date:        Tuesday, December 12, 1995 8:22:00 PM
*)

global gSPMFolder
global gTargetProjectFolder
global gTargetProjectIndex

property gOriginalProjectName : "OSAPlugIn PPC.π"

on GetParentFolder(filePath)
    set pathLength to length of filePath
    set folderEnd to 0
    repeat with i from pathLength to 1 by -1
        if (character i of filePath is ":") then
            set folderEnd to i
            exit repeat
        end if
    end repeat
    copy text from character 1 to character folderEnd of filePath to folderToSearch
    return folderToSearch
end GetParentFolder

on AddGroup(groupName, parentGroupName)
    tell application "Symantec Project Manager"
        tell project document gTargetProjectIndex
            try
                if (not (group groupName exists)) then
                    if (parentGroupName is not "") then
                        create new group as groupName at end of group named parentGroupName
                    else
                        create new group as groupName at end
                    end if
                    set is_open of group named groupName to true
                end if
            on error
                display dialog "An error occured while creating group " & segmentName & "."
                return
            end try
        end tell
    end tell
end AddGroup

on AddProjectEntry(entryName, path, mode, groupName)
    if (mode is "system")
        set fileName to gSPMFolder & path & entryName
    else if (mode is "project")
        set fileName to gTargetProjectFolder & path & entryName
    else
        set fileName to path & entryName
    end if
    tell application "Symantec Project Manager"
        tell project document gTargetProjectIndex
            try
                if (groupName is not "") then
                    if (not (source entryName of group groupName exists)) then
                        create new source as file fileName at end of group named groupName
                    end if
                else
                    if (not (source entryName exists)) then
                        create new source as file fileName at end
                    end if
                end if
            on error
                display dialog "An error occured while creating source " & entryName & "."
            end try
        end tell
    end tell
end AddProjectEntry

on GetProjectIndex(project)
    -- Find the index of the front project.
    -- We should be able to just say "set gTargetProjectIndex to index of front project document)"
    -- but there is a bug in the SPM right now where it doesn't index projects by window layering.
    tell application "Symantec Project Manager"
        set projectName to full path name of project
        set projectCount to count project documents
        repeat with i from 1 to projectCount
            set fpn to full path name of project document i
            if (fpn is projectName) then
                return i
            end if
        end repeat
    end tell
    return 0
end GetProjectIndex

on ConfirmTargetProject(targetProjectIndex)
    set hitOK to true
    tell app "Symantec Project Manager"
        -- Confirm the project
        set promptString to "Update project \"" & name of project document targetProjectIndex & "\"?"
        set confirmResult to display dialog promptString buttons {"New Project", "Cancel", "OK"} default button 3
    end tell
    return button returned of confirmResult
end ConfirmTargetProject

on ChooseTargetProject()
    tell app "Symantec Project Manager"
        if number of project document = 0 then
            set promptForNewProject to true
            set targetProjectIndex to 0
        --else if (class of front document is project document) then
        --    set targetProjectIndex to my GetProjectIndex(front document)
        else if (exists main_project) then
            set targetProjectIndex to index of main_project
        else
            set targetProjectIndex to 0
        end if

        if (targetProjectIndex > 0) then
            set confirmButton to my ConfirmTargetProject(targetProjectIndex)
            if (confirmButton is not "OK") then
                set promptForNewProject to true
            else
                set promptForNewProject to false
            end if
        else
            set promptForNewProject to true
        end if

        if (promptForNewProject) then
            try
                set newProjectSpec to new file with prompt "New Project Name:" default name gOriginalProjectName
                create new project document as file newProjectSpec
                set targetProjectIndex to my GetProjectIndex(front document)
            on error
                set targetProjectIndex to 0
            end try
        end if
    end tell
    return targetProjectIndex
end ChooseTargetProject

tell application "Symantec Project Manager"
    activate
    set gTargetProjectIndex to my ChooseTargetProject()
    if (gTargetProjectIndex is 0)
        return
    end if
    set gSPMFolder to my GetParentFolder(filespec as string)
    set gTargetProjectFolder to my GetParentFolder(filespec of project document gTargetProjectIndex as string)
end tell

-- Add all the groups
my AddGroup("OSAPlugIn", "", gTargetProjectIndex)
my AddGroup("OpenDoc Utilities", "", gTargetProjectIndex)
my AddGroup("Resources", "", gTargetProjectIndex)
my AddGroup("OpenDoc Libraries", "", gTargetProjectIndex)
my AddGroup("System Libraries", "", gTargetProjectIndex)

-- Add all the source files
my AddProjectEntry("QuickDrawGXLib.xcoff", "Macintosh Libraries:PPC Libraries:", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("PPCANSI.o", "Standard Libraries:", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("OpenDoc PPCRuntime.o", "OpenDoc (SPM):OpenDoc PPCRuntime:", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("MathLib.xcoff", "Macintosh Libraries:PPC Libraries:", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("InterfaceLib.xcoff", "Macintosh Libraries:PPC Libraries:", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("somlib", "SOM (SPM):", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("OpenDoc User Interface.stub", "OpenDoc (SPM):OpenDoc:Libraries:PEF:", "system", "OpenDoc Libraries", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Storage.stub", "OpenDoc (SPM):OpenDoc:Libraries:PEF:", "system", "OpenDoc Libraries", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Layout.stub", "OpenDoc (SPM):OpenDoc:Libraries:PEF:", "system", "OpenDoc Libraries", gTargetProjectIndex)
my AddProjectEntry("AltPoint.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Core.stub", "OpenDoc (SPM):OpenDoc:Libraries:PEF:", "system", "OpenDoc Libraries", gTargetProjectIndex)
my AddProjectEntry("Memory Manager.stub", "OpenDoc (SPM):OpenDoc:Libraries:PEF:", "system", "OpenDoc Libraries", gTargetProjectIndex)
my AddProjectEntry("StdCLib.xcoff", "Standard Libraries:Apple PPC Libraries:", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("AltPoly.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("SCPCHeaders++.pch", "Build Support:", "system", "", gTargetProjectIndex)
my AddProjectEntry("OSAPlugIn.cpp", "OSAPlugIn:", "project", "OSAPlugIn", gTargetProjectIndex)
my AddProjectEntry("IText.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("StorUtil.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("Except.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("DlogUtil.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("FlipEnd.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("ISOStr.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("StdIFmIO.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("TempIter.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("ODDebug.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("ODMemory.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("ODUtils.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("OSAPlugIn.PPC.rsrc", "Objects:", "project", "Resources", gTargetProjectIndex)
my AddProjectEntry("PasclStr.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("LineOps.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("BArray.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("SC++ ScriptRunnerAgentInit.cpp", "OSAPlugIn:", "project", "OSAPlugIn", gTargetProjectIndex)
my AddProjectEntry("ODMathM.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("OpenDoc Imaging.stub", "OpenDoc (SPM):OpenDoc:Libraries:PEF:", "system", "OpenDoc Libraries", gTargetProjectIndex)
my AddProjectEntry("StdTypIO.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("UseRsrcM.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("PlfmFile.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("ODNew.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("Crawl.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("TempObj.cpp", "OpenDoc (SPM):OpenDoc:OpenDoc Utilities:Implementation:", "system", "OpenDoc Utilities", gTargetProjectIndex)
my AddProjectEntry("PPCToolLibs.o", "Macintosh Libraries:PPC Libraries:", "system", "System Libraries", gTargetProjectIndex)
my AddProjectEntry("ScriptRunnerAgent.cpp", "OSAPlugIn:", "project", "OSAPlugIn", gTargetProjectIndex)
my AddProjectEntry("DragLib.xcoff", "Macintosh Libraries:PPC Libraries:", "system", "System Libraries", gTargetProjectIndex)

tell application "Symantec Project Manager"
    tell project document gTargetProjectIndex

        -- Set up project options
        set compact_on_close to false
        set confirm_updates to true
        set update_subprojects to true
        set check_file_dates to false
        set run_with_debugger to true

        -- Set up project type options
        set target_type to PowerPC_library
        set file_type to "shlb"
        set file_creator to "PUNR"
        set SIZE_flags to 22720
        set partition_size to 1024
        set minimum_partition_size to 1024
        set ask_for_target to true
        set target_name to file (gTargetProjectFolder & "OSAPlugIn (SPM)")
        set merge_68k_application to false
        set source_68k_application to file ""
        set custom_stack_size to 0
        set export_all_symbols to false
        set current_lib_version to 16809984
        set lib_definition_version to 0

        -- Set up linker options
        set linker_to_use to incremental_linker
        set smart_link to true
        set generate_link_map to false
        set update_subprojects to true
        set generate_cross_references to false
        set use_makesym to false
        set ppclink_options to "-main __cplusstart"
        set makesym_options to ""
        set makepef_options to "-l 'AppleScriptLib.xcoff.o=AppleScriptLib' ∂" & return & ¬
"-l 'InterfaceLib.xcoff.o=InterfaceLib' ∂" & return & ¬
"-l 'DragLib.xcoff.o=DragLib' ∂" & return & ¬
"-l 'MathLib.xcoff.o=MathLib' ∂" & return & ¬
"-l 'ObjectSupportLib.xcoff.o=ObjectSupportLib' ∂" & return & ¬
"-l 'QuickTimeLib.xcoff.o=QuickTime' ∂" & return & ¬
"-l 'StdCLib.xcoff.o=StdCLib' "

        -- Set up extensions
        set extension_map to {¬
            {the_extension:".c", the_translator:"PowerPC C"},¬
            {the_extension:".cp", the_translator:"PowerPC C++"},¬
            {the_extension:".cpp", the_translator:"PowerPC C++"},¬
            {the_extension:".o", the_translator:"XCOFF Converter"},¬
            {the_extension:".pch", the_translator:"PowerPC C++"},¬
            {the_extension:".r", the_translator:"Symantec Rez"},¬
            {the_extension:".rsrc", the_translator:"Resource Copier"},¬
            {the_extension:".va", the_translator:"Resource Copier"},¬
            {the_extension:".xcoff", the_translator:"XCOFF Converter"}¬
        }

        -- Set up project window options
        set order_by to order_by_debugging
        set ascending_order to true
        set show_group_hierarchy to true
        set show_entry_icon to true
        set show_debugging_status to true
        set show_group_membership to false
        set show_translator to false
        set show_type to false
        set show_location to false
        set show_last_modification to false
        set show_code_size to true
        set show_data_size to false
        set show_make_status to true
        set show_projector_status to false
        set font to "Geneva"
        set font_size to "9"

        -- Set up "PowerPC C" options
        set ansi of Options "PowerPC C" to true
        set ansi_strict of Options "PowerPC C" to relaxed_ansi
        set read_header_once of Options "PowerPC C" to true
        set chars_unsigned of Options "PowerPC C" to false
        set pack_enums of Options "PowerPC C" to false
        set map_cr of Options "PowerPC C" to false
        set native_language of Options "PowerPC C" to english
        set struct_align of Options "PowerPC C" to align_2
        set global_optimizer of Options "PowerPC C" to true
        set gopt_time of Options "PowerPC C" to optimize_time
        set force_frame of Options "PowerPC C" to false
        set generate_symbolics of Options "PowerPC C" to true
        set error_reporting of Options "PowerPC C" to report_first_few_err
        set generate_warn of Options "PowerPC C" to true
        set warn_unintended_assign of Options "PowerPC C" to true
        set warn_nest_comments of Options "PowerPC C" to true
        set warn_unused_expressions of Options "PowerPC C" to true
        set warn_empty_loops of Options "PowerPC C" to true
        set warn_used_before_set of Options "PowerPC C" to true
        set warn_large_auto of Options "PowerPC C" to true
        set warn_return_addr_auto of Options "PowerPC C" to true
        set warn_unrecognized_pragma of Options "PowerPC C" to true
        set prefix of Options "PowerPC C" to "#include <PPC Macheaders>"
        set check_ptrs of Options "PowerPC C" to true
        set require_protos of Options "PowerPC C" to true
        set infer_protos of Options "PowerPC C" to infer_prototypes

        -- Set up "PowerPC C++" options
        set ansi of Options "PowerPC C++" to true
        set ansi_strict of Options "PowerPC C++" to relaxed_ansi
        set read_header_once of Options "PowerPC C++" to true
        set chars_unsigned of Options "PowerPC C++" to false
        set pack_enums of Options "PowerPC C++" to false
        set map_cr of Options "PowerPC C++" to false
        set native_language of Options "PowerPC C++" to english
        set struct_align of Options "PowerPC C++" to align_2
        set global_optimizer of Options "PowerPC C++" to false
        set gopt_time of Options "PowerPC C++" to optimize_time
        set force_frame of Options "PowerPC C++" to false
        set generate_symbolics of Options "PowerPC C++" to true
        set error_reporting of Options "PowerPC C++" to report_first_few_err
        set generate_warn of Options "PowerPC C++" to true
        set warn_unintended_assign of Options "PowerPC C++" to true
        set warn_nest_comments of Options "PowerPC C++" to true
        set warn_unused_expressions of Options "PowerPC C++" to true
        set warn_empty_loops of Options "PowerPC C++" to true
        set warn_used_before_set of Options "PowerPC C++" to true
        set warn_large_auto of Options "PowerPC C++" to true
        set warn_return_addr_auto of Options "PowerPC C++" to true
        set warn_unrecognized_pragma of Options "PowerPC C++" to false
        set prefix of Options "PowerPC C++" to "#include \"SCPCHeaders++\"" & return & ¬
"#pragma options(system_includes_from_project_tree)" & return & ""
        set dont_inline of Options "PowerPC C++" to false
        set warn_old_style_delete of Options "PowerPC C++" to true
        set warn_struct_without_tag of Options "PowerPC C++" to true
        set warn_missing_overloads of Options "PowerPC C++" to true
        set warn_ref_init of Options "PowerPC C++" to true
        set warn_old_style_definition of Options "PowerPC C++" to true
        set warn_cast_incomplete_type of Options "PowerPC C++" to true

        -- Set up "Symantec Rez" options
        set Redeclared Types of Options "Symantec Rez" to true
        set prefix of Options "Symantec Rez" to "#define SystemSevenOrLater 1" & return & ""

    end tell
end tell